www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/toplist.asp
<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
'=========================================================
' File: toplist.asp
' Version:3.0
' Date: 2005-10-29
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579 Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
dim orders,ordername,Starname,StarVip
dim stat,OnlineTime
dim Srs
orders=checkStr(trim(Request("orders")))
if Cint(GroupSetting(1))=0 then
Errmsg=Errmsg+"<br>"+"<li>您没有浏览本交友中心会员资料的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
founderr=true
end if
if not founduser then
Errmsg=Errmsg+"<br>"+"<li>您还没有<a href=login.asp>登陆</a>，不能查看会员排行！"
Founderr=true
end if
call nav()
if founderr then
call Mslove_error()
else
call tumppages()
if not isInteger(orders) or orders="" then
orders=1
else
orders=orders
end if
strFileName="toplist.asp?orders="&orders&""
select case orders
case 1
ordername="最新100男会员"
case 2
ordername="最新100女会员"
case 3
ordername="最新VIP认证会员"
case 4
ordername="最新上传照片男会员"
case 5
ordername="最新上传照片女会员"
case 6
ordername="最有魅力的男士"
case 7
ordername="最有魅力的靓女"
case 8
ordername="人气最旺的会员"
case 9
ordername="登录最多会员"
case 10
ordername="日记总数Top50"
case 11
ordername="Top50大富翁"
'case 12
' ordername="相册总数Top50"
'case 13
' ordername="等待VIP审批会员"
'case 14
' ordername="被锁定屏蔽会员"
'case 15
' ordername="管理团队"
case 16
ordername="新进会员Top100"
end select
stats=ordername
call head_var("会员排行","toplist.asp")
call main()
end if
call footer()
call activeonline()
sub main()
dim UserNum,Uploadph,Marrynum,Partynum,UserArt,Userdiary
sql="select UserNum,Uploadph,Marrynum,Partynum,UserArt,Userdiary from Ms_setup where Cid=1"
set rs=conn.execute(sql)
UserNum=rs(0)
Uploadph=rs(1)
Marrynum=rs(2)
Partynum=rs(3)
UserArt=rs(4)
Userdiary=rs(5)
rs.close
%><TABLE borderColor=#111111 cellSpacing=0 cellPadding=0 width=750
align=center bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD background=skins/21cn/bg2.jpg height=158><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width=480> </td>
<td><table border="0" align="center" cellpadding="4" cellspacing="0">
<form name=searchform action=search.asp?action=Usearch method=post
target=_blank>
<tr>
<td height="13" colspan="2"> <strong>我要找：</strong> <input name="Gender" type="radio" value="0" checked>
女朋友
<input type="radio" name="Gender" value="1">
男朋友</td>
</tr>
<tr>
<td height="13" colspan="2"><strong>年 龄：</strong> <select name="Minage">
<option ></option>
<option value=0>0</option>
<option
value=15>15</option>
<option value=20 selected>20</option>
<option value=25>25</option>
<option value=30>30</option>
<option
value=35>35</option>
<option value=40>40</option>
<option value=45>45</option>
<option
value=50>50</option>
<option value=55>55</option>
<option value=60>60</option>
<option
value=65>65</option>
<option
value=70>70</option>
</select>
到
<select name="Maxage">
<option></option>
<option
value=70>70</option>
<option value=65>65</option>
<option value=60>60</option>
<option
value=55>55</option>
<option value=50>50</option>
<option value=45>45</option>
<option
value=40>40</option>
<option value=35>35</option>
<option value=30 selected>30</option>
<option
value=25>25</option>
<option value=20>20</option>
<option value=15>15</option>
<option value=0>0</option>
</select>
周岁</td>
</tr>
<tr>
<td height="8" colspan="2"><font color="#333333"><strong>身 高：</strong>
<select name=Minheight>
<option></option>
<option value=110>110</option>
<option value=150 selected>150</option>
<option value=155>155</option>
<option value=160>160</option>
<option value=165>165</option>
<option value=170>170</option>
<option value=175>175</option>
<option value=180>180</option>
<option value=185>185</option>
<option value=190>190</option>
<option value=195>195</option>
<option value=200>200</option>
</select>
到
<select name=Maxheight>
<option></option>
<option value=200>200</option>
<option value=195>195</option>
<option value=190>190</option>
<option value=185>185</option>
<option value=180>180</option>
<option value=175 selected>175</option>
<option value=170>170</option>
<option value=165>165</option>
<option value=160>160</option>
<option value=155>155</option>
<option value=150>150</option>
<option value=110>110</option>
</select>
CM</font></td>
</tr>
<tr>
<td height="9" colspan="2"><strong>照 片： </strong> <input name="Userpics" type="radio" value="0" checked>
不限
<input type="radio" name="Userpics" value="1">
有照片</td>
</tr>
<tr>
<td width="114" height="31" align="right"> <a href="userfm.asp">我的速配</a>
<a href="search.asp">高级搜索</a></td>
<td width="121" align="left"> <input name="imageField2" type="image" src="skins/21cn/btn_Search.gif" width="76" height="23" border="0" class="notinput"></td>
</tr>
</form>
</table></td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
<FONT
face=宋体>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=18><IMG height=18
src="skins/21cn/main_toplift.gif"
width=18></TD>
<TD width=714
background=skins/21cn/main_linktop.gif
height=18></TD>
<TD width=18><IMG height=18
src="skins/21cn/main_topright.gif"
width=18></TD>
</TR>
<TR>
<TD
background=skins/21cn/main_linklift.gif></TD>
<TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=left width="22%"><IMG height=32
src="skins/21cn/icon_gmb.gif"
width=110></TD>
<TD align=left><b><%=ordername%></b></TD>
</TR>
<TR>
<TD
background=skins/21cn/icon_titleLink.gif
colSpan=2 height=4></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD
background=skins/21cn/main_linkright.gif></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=18
background=skins/21cn/main_linklift.gif></TD>
<TD><FONT face=宋体>
<TABLE id=Table1 cellSpacing=0 cellPadding=0 width="100%"
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD> <TABLE id=bright1_UserList31_DataGrid1
style="WIDTH: 100%; BORDER-COLLAPSE: collapse" cellSpacing=0
cellPadding=0 border=0>
<TBODY>
<TR>
<TD height="108"><table width="98%" border="0" align=center cellpadding=0 cellspacing=0>
<tr>
<td colspan=12 ><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
</tr>
</table></td>
</tr>
<tr align="center">
</tr>
<%
set rs=server.createobject("adodb.recordset")
select case orders
case 1
sql="select top 100 userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] where usersex=1 order by joinDate desc"
case 2
sql="select top 100 userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] where usersex=0 order by joinDate desc"
case 3
sql="select userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] where uservip>=2 order by joinDate desc"
case 4
sql="select top 50 userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] where UserPics>0 and usersex=1 order by joinDate desc"
case 5
sql="select top 50 userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] where UserPics>0 and usersex=0 order by joinDate desc"
case 6
sql="select top 50 userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] where usersex=1 order by UserEP desc,joinDate"
case 7
sql="select top 50 userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] where usersex=0 order by UserEP desc,joinDate"
case 8
sql="select userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] order by UserViews desc,userid"
case 9
sql="select userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] order by UserLogins desc,userid"
case 10
sql="select top 50 userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] order by Userdiary desc,userid"
case 11
sql="select top 50 userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] order by UserWealth desc,userid"
'case 12
' sql="select top 50 userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] order by UserPics desc,userid"
'case 13
' sql="select userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] where UserVip=1 order by userid desc"
'case 14
' sql="select userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] where LockUser>=1 order by userid desc"
'case 15
' sql="select userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] where UserGroupID<=3 order by userid desc"
case 16
sql="select top 100 userid,LockUser,Username,Userphoto,UserFace,UserVip,Usersex,Userbirthday,UserPics,Userdiary,UserInfo,Userfriends,Userart,UserViews,userclass from [Ms_user] order by userid desc"
end select
rs.open sql,conn,1
if rs.eof and rs.bof then
response.write "<tr><td colspan=10 align=center>还没有任何用户数据。</td></tr>"
else
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)
Starname=rs("Username")
StarVip=rs("UserVip")
if Supermaster or master then
set Srs=conn.execute("select stats,startime from Ms_online where userid="&rs("userid"))
else
set Srs=conn.execute("select stats,startime from Ms_online where userid="&rs("userid")&" and userhidden=2")
end if
if Srs.eof and Srs.bof then
stat=""
OnlineTime="[离线]"
else
stat="当前位置：["&Srs(0)&"]"
OnlineTime="[在线：" & datediff("n",Srs(1),Now()) & "Mins]"
end if
Srs.close
set Srs=nothing
%>
<tr>
<td width="20%" height="27" >
<p align="center"> </p>
<p align="center"> <%if rs(3)<>"" then
response.Write("<img src="&rs(3)&" width=""90"" height=""106"" border=""0"">")
else
response.Write("<img src="&rs(4)&" width=""90"" height=""106"" border=""0"">")
end if%><br>
<br>
人气：<%=rs("UserViews")%> </p>
<p align="center"> </p>
</td>
<td height="27" align="center" >
<p align="left"><a href=dispuser.asp?Username=<%=Starname%> target=_blank><%=Starname%></a><%if StarVip>1 then
response.write(" <img src=Skins/Default/vip.gif title=Vip会员>")
end if
if rs("LockUser")=1 then
response.write " <img src=Skins/Default/userlock.gif title=锁定状态 align=absmiddle>"
elseif rs("LockUser")=2 then
response.write " <img src=Skins/Default/useroff.gif title=屏蔽状态 align=absmiddle>"
end if%>
<font face="宋体">，</font>
<%if rs("Usersex")=1 then
response.Write("<img src=skins/21cn/boy.gif>")
else
response.Write("<img src=skins/21cn/girl.gif>")
end if%>
<font face="宋体">，</font>
<%if stat<>"" then
response.write("<img src=Skins/Default/online1.gif title="&stat&OnlineTime&">")
else
response.write("<img src=Skins/Default/offline1.gif title="&OnlineTime&">")
end if%>
<%
dim userinfo_hpf,province_hpf,city_hpf,Umarital_hpf,Ueducation_hpf,occupation_hpf,personal_hpf
userinfo_hpf=split(rs("UserInfo"),"|||")
province_hpf=userinfo_hpf(4) '省份
city_hpf=userinfo_hpf(5) '城市
occupation_hpf=userinfo_hpf(11) '职业
Umarital_hpf=userinfo_hpf(13) '婚姻状况
Ueducation_hpf=userinfo_hpf(14) '学历
personal_hpf=userinfo_hpf(2) '个人独白
dim Userfriendinfo_hpf,Ufigure_hpf,Uincome_hpf
Userfriendinfo_hpf=split(rs("Userfriends"),"|||")
Ufigure_hpf=Userfriendinfo_hpf(2) '体型
Uincome_hpf=Userfriendinfo_hpf(5) '收入
%>
</p>
<p align="left">
<%if rs("Usersex")=1 then
response.Write("男")
else
response.Write("女")
end if%>
<font face="宋体">，</font><%=datediff("yyyy",rs("Userbirthday"),Now())%>岁<font face="宋体">，</font>
<%=province_hpf%><%=city_hpf%>人，<%=Umarital_hpf%>，<%=Ueducation_hpf%>，<%=occupation_hpf%>，<%=Uincome_hpf%>元，身材<%=Ufigure_hpf%>，等级：<%=rs("userclass")%></p>
<p align="left"><strong><font color="#FF0000">个人独白</font></strong>：<%=personal_hpf%> <a></p>
<p align="right"><a href="javascript:openScript('messanger.asp?action=new&touser=<%=htmlencode(Starname)%>',500,400)" class="style6">明送秋波</a> <a href="friendlist.asp?action=addF&myFriend=<%=HTMLEncode(Starname)%>" target=_blank class="style6">加为好友</a> <a href="userbook.asp?action=add&ClassID=2&Touser=<%=HTMLEncode(Starname)%>" target=_blank class="style6">发送留言</a> <a
href=photolist.asp?action=userp&username=<%=Starname%> target=_blank class="style6">个人相册</a> <a
href=../dispuser.asp?Username=<%=Starname%> target=_blank class="style6" >详细资料>>></a></p>
</td>
<td align=center >
</td>
</tr>
<TD style="BORDER-BOTTOM: #cccccc 1px dashed"
colSpan=3
height=2> </TD>
<%page_count=page_count+1
rs.movenext
loop
end if
%>
<tr>
<td height="26" colspan="10" align=center >
<p> </p>
<p>
<%if totalrec>0 then
call showpage(strFileName)
end if%>
</p></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD></TD>
</TR>
</TBODY>
</TABLE>
</FONT></TD>
<TD width=18
background=skins/21cn/main_linkright.gif></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=18><IMG height=18
src="skins/21cn/main_bottomlift.gif"
width=18></TD>
<TD width=714
background=skins/21cn/main_linkBottom.gif
height=18></TD>
<TD width=18><IMG height=18
src="skins/21cn/main_bottomright.gif"
width=18></TD>
</TR>
</TBODY>
</TABLE>
</FONT>
<%
rs.close
set rs=nothing
end sub
%>